﻿Imports System.Data
Imports VSModel
Imports Cls_Common
Imports SecurityService
Partial Class Control_TiepNhan_InPhieu
    Inherits System.Web.UI.UserControl
    Private Shared ReadOnly log As log4net.ILog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)
    Dim _HuyenId As Integer
#Region "Event for control "
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not Request.QueryString("Certifiedid").ToString.Equals("0") Then
                hidID.Value = Request.QueryString("Certifiedid")
                hidCurHuyenId.Value = Session("HuyenId")
                _HuyenId = Session("HuyenId")
                Load2Grid()
            End If
        End If
    End Sub
    Protected Sub Load2Grid()
        Using _data As New VSEntities
            Dim p = (From q In _data.CertifiedHouseholds Where q.CertifiedID = hidID.Value And q.ProvinceId = _HuyenId Select q).FirstOrDefault
            If p Is Nothing Then
                Excute_Javascript("Alertbox('Có lỗi vui lòng kiềm tra đường truyền !.');", Me.Page, True)
                Exit Sub
            End If
            hidID.Value = p.CertifiedID

            'Thông tin hộ kinh doanh: 
            lblTenHoKinhDoanh.Text = IIf(IsNothing(p.Ow_Name) = True, "", p.Ow_Name) 'Tên dai dien kinh doanh
            lblCMND.Text = IIf(IsNothing(p.Ow_CardID) = True, "", p.Ow_CardID) 'CMND
            lblAddress.Text = "Địa chỉ: " & IIf(IsNothing(p.Biz_HeadOffice) = True, "", p.Biz_HeadOffice) 'địa điểm kinh doanh
            lblDienThoai.Text = IIf(IsNothing(p.Ow_Tel) = True, "", p.Ow_Tel) 'điện thoai
            lblFax.Text = IIf(IsNothing(p.Ow_Fax) = True, "", p.Ow_Fax) 'fax
            lblEmail.Text = IIf(IsNothing(p.Ow_Email) = True, "", p.Ow_Email) 'Email
            lblWebsite.Text = IIf(IsNothing(p.Ow_WebSite) = True, "", p.Ow_WebSite) 'Website
            'hiển thị riêng cho chợ mới 174
            If _HuyenId = 174 Then
                lblTenBangHieu.Text = IIf(IsNothing(p.Biz_VietName) = True, "", p.Biz_VietName) 'Tên bảng hiệu
            Else
                lblTenBangHieu.Text = ""
            End If


            'giấy tờ kèm theo
            Dim _L = (From l In _data.CertifiedHouseholdThanhPhanHoSoes Where l.CertifiedID = p.CertifiedID Select l.ThanhPhanHoSoId).ToArray
            If Not _L Is Nothing Then
                Dim _K = (From k In _data.ThanhPhanHoSoes Where _L.Contains(k.Id) Select k.TenHoSo).ToList
                If Not _K Is Nothing Then
                    Dim _number As Integer = 0
                    For Each _i In _K
                        _number = _number + 1
                        lblGhiChu.Text += _number & "&nbsp;" & _i & "</br>"
                    Next
                End If
            End If

            'thông tin hồ sơ
            If Not p.Created Is Nothing Then
                lblNgayNhanHoSo.Text = CType(p.Created, Date).ToString("dd/MM/yyyy") 'ngày nộp
            End If
            Dim NgayNop As DateTime = CType(p.Created, Date)


            Dim ngayTra As DateTime
            If Not p.NgayTraHoSo Is Nothing Then
                ngayTra = CType(p.NgayTraHoSo, Date)
            Else

                Dim _HuyenObj = (From q In _data.Provinces Where q.Id = _HuyenId Select q).FirstOrDefault
                If Not _HuyenObj Is Nothing Then
                    Dim _SoNgayTraHoSo As Integer
                    If StringToDateTime(Now.ToString("dd/MM/yyyy"), _HuyenObj.GioBienNhan) > Now Then
                        _SoNgayTraHoSo = _HuyenObj.SoNgayTraHoSo - 1
                    Else
                        _SoNgayTraHoSo = _HuyenObj.SoNgayTraHoSo
                    End If
                    p.NgayTraHoSo = _data.uspGetNumDateDelivery(p.Created, _SoNgayTraHoSo).FirstOrDefault.DeliveryDate
                    _data.SaveChanges()
                End If
                ngayTra = CType(p.NgayTraHoSo, Date)
            End If



            Dim strBuoiSC As String = ""
            If ngayTra.DayOfWeek = DayOfWeek.Saturday Then
                strBuoiSC = " (buổi sáng)"
            Else
                strBuoiSC = " (buổi chiều)"
            End If
            'config buổi trả
            Dim BuoiTra = (From q In _data.Configs Where q.BuoiTraHoSo = "khong" And q.ProvinceId = hidCurHuyenId.Value Select q).FirstOrDefault
            If Not BuoiTra Is Nothing Then
                strBuoiSC = ""
            End If
            lblNgayTraKetQua.Text = "Cơ quan đăng ký kinh doanh hẹn Ông/Bà ngày " & ngayTra.ToString("dd/MM/yyyy") & strBuoiSC _
                                    & " liên hệ với Cơ quan đăng ký kinh doanh để được giải quyết theo quy định của pháp luật."
            'luu y ngay nop se tinh lai

            'người nộp hồ sơ
            'lblNguoiNop.Text = IIf(IsNothing(p.Biz_VietName) = True, "", p.Biz_VietName)
            'ngày in phiêu
            Dim _H = (From j In _data.Provinces Where j.Id = _HuyenId Select j).FirstOrDefault

            ' Lay ngay tao = ngay in bien nhan
            Dim _created As Date = IIf(p.Created Is Nothing, Now.Date, p.Created)
            If Not _H Is Nothing Then
                If _HuyenId = 174 Then
                    Dim _CatHuyen = Replace(_H.Title, "huyện", "", 1)
                    lblNgayInPhieu.Text = _CatHuyen & ", ngày " & _created.Day & " tháng " & _created.Month & " năm " & _created.Year
                Else
                    lblNgayInPhieu.Text = _H.Title & ", ngày " & _created.Day & " tháng " & _created.Month & " năm " & _created.Year
                End If
                lblPhongCap.Text = "UBND " & _H.Title

                'cơ quan đăng ký
                lblTenCoQuanDangKy.Text = "Tên Cơ quan đăng ký kinh doanh: Bộ phận tiếp nhận và trả kết quả " & _H.Title
                lblDiaChiTruSo.Text = "Địa chỉ trụ sở: " & IIf(IsNothing(_H.DiaChi) = True, "", _H.DiaChi) 'địa chỉ
                lblDienThoaiCQ.Text = IIf(IsNothing(_H.DienThoai) = True, "", _H.DienThoai) 'điện thoại
                lblFaxCQ.Text = IIf(IsNothing(_H.Fax) = True, "", _H.Fax) 'Fax
                lblEmailCQ.Text = IIf(IsNothing(_H.Email) = True, "", _H.Email) 'Fax
                lblWebsiteCQ.Text = IIf(IsNothing(_H.Website) = True, "", _H.Website) 'Website
            End If



            If p.SoBienNhan Is Nothing Then
                Dim sobienNhan As String = _data.uspCertifiedHouseGenSoBienNhan(_HuyenId).FirstOrDefault.SoBienNhan
                p.SoBienNhan = sobienNhan
                _data.SaveChanges()
            End If

            lblSo.Text = p.SoBienNhan
            lblSoHoSo.Text = p.SoBienNhan

            If p.ParentId <> p.CertifiedID Then
                lblLyDo.Text = "Đăng ký cấp đổi kinh doanh hộ"
            Else
                lblLyDo.Text = "Đăng ký chứng nhận kinh doanh hộ"
            End If

            'người nhận
            Dim _UserId As Integer = Session("UserId")
            Dim _p = (From q In _data.Users
                     Where q.UserId = _UserId Select q).FirstOrDefault
            If Not _p Is Nothing Then
                lblNguoiNhan.Text = _p.FullName
            End If
            lblNguoiNop.Text = IIf(IsNothing(p.Ow_Name) = True, "", p.Ow_Name)

            If Not _H.BienNhan Is Nothing Or _H.BienNhan <> "" Then
                ltrBienNhan.Text = _H.BienNhan
            End If



        End Using

    End Sub


#End Region

End Class
